home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
pascal
/
tpref.exe
/
SOURCE.EXE
/
DEBUG.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-09-15
|
1KB
|
55 lines
{ DEBUG.PAS }
{$DEFINE DEBUGGING}
{$IFDEF DEBUGGING}
procedure DebugTrace( S : String; X : Integer );
begin
Writeln( DebugFile, S,', ', X );
end;
{$ENDIF}
function UpperCase ( S : String ) : String;
var
I : Integer;
begin
{$IFDEF DEBUGGING}
DebugTrace('UpperCase', 0 );
{$ENDIF}
for I := 1 to Length( S ) do
S[I] := UpCase ( S[I] );
UpperCase := S;
end; { UpperCase }
function HeapFunc ( Size : Word ) : integer;
begin
{$IFDEF DEBUGGING}
DebugTrace('HeapFunc', 0 );
{$ENDIF}
HeapFunc := 1;
end;
function LowerCase (S : String ) : String;
Var
I : Integer;
begin
{$IFDEF DEBUGGING}
DebugTrace('LowerCase', 0 );
{$ENDIF}
for I := 1 to length(s) do
if ((S[I]>='A') and (S[I]<='Z')) then
S[I] := Chr( Ord( S[I] ) + 32 );
LowerCase := S;
end;
Function Max ( A, B : Integer ) : Integer;
Begin
{$IFDEF DEBUGGING}
DebugTrace('Max', 0 );
{$ENDIF}
IF A>B THEN Max := A Else Max := B;
End; {Max}